home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
MATH
/
MAT
/
MATTEST.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1994-07-21
|
559b
|
46 lines
PROGRAM EUGENE4;
USES WINCRT,winprocs,wobjects,wintypes,
SUSAN1,indigou2,matrix;
VAR
A,B,C,D,E,F: INTEGER;
RATIO,S,G,H,L: REAL;
z:char;
q:array[1..20] of real;
y:tmatrix;
BEGIN
WINDOWORG.X:=0;
WINDOWORG.Y:=0;
WINDOWSIZE.X:=800;
WINDOWSIZE.Y:=600;
SCREENSIZE.X:=250;
SCREENSIZE.Y:=250;
initwincrt;
y.init;
randomize;
for a:=1 to 20 do
begin
for b:=1 to 21 do
begin
l:=(random(100))+1;
y.load(a,b,l);
end;
end;
y.solve(q,20);
h:=y.check;
writeln(h);
for a:=1 to 20 do
begin
writeln(q[a]);
end;
y.done;
END.